#!/usr/bin/perl

package InheritClass;
use BaseClass;
our @ISA = qw(BaseClass);

#override constructor
sub new
{
	my $class = shift;
	my($firstName, $lastName, $iAge) = @_;

	my $self = $class->SUPER::new( $firstName, $lastName ); 	
	
	$self{_age} = $iAge;

	bless $self, $class;
	return $self;
}


sub getFirstName
{
	my $class = shift;
	
	my $firstName = $class->SUPER::getFirstName();
	
	return $firstName;
}



1;